#!/usr/bin/perl

use SOAP::Transport::HTTP; 
use LWP::Simple;
use HTML::TreeBuilder::XPath;
use CGI qw(param); 

SOAP::Transport::HTTP::CGI
	->dispatch_to('miServicio')
	->handle; 

sub noticias {
  my $datos = LWP::Simple::get('http://www.elpais.com/rss/index.html');   
  my @sol;
  my $xml = XML::XPath->new(xml=>$datos);
  my $item =$xml 
				-> find('//item');
#Recorremos los item y tomamos los titulares y los artículos
  foreach $i ($item->get_nodelist){
		my $titular =  $nodo
							->getChildNode(2) #el 1 es el namespace
									->string_value ;
		push @sol, $titular;
	  }
	  print @sol
}
